<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admenvaccueilmod.php,v $ 
 * $Date: 2005/08/29 14:52:44 $ 
 * $Revision: 1.2 $ 
 * 
 * ********* CVS HEADER ********* 
 */
if (!isset($argid)) {
	rportalerreur("Aucun environnement en param&egrave;tre !","?op=admenvliste");
}
$query="SELECT code FROM html WHERE id='$argid'";
$result=rportalrequete($query) or rportalerreur($query,"?op=admenvliste");
if($row=rportalligne($result)){
    $query="UPDATE environnement SET accueil='".$row['code']."' WHERE id='$env'";
    @rportalrequete($query) or rportalerreur($query,"?op=admenvliste");
}
header("Location: ?op=admhtmlmod&argid=$argid&r=$r");
exit;
?>